CLS
INPUT "x0,xk="; x0, xk
INPUT "x="; x
FOR i = 1 TO n
IF x0 <= x <= xk THEN y = y + (SIN((2 * i + 1) * x)) / (2 * i + 1) ^ 3 ELSE y = 0
NEXT i
WHILE y = .001
WEND
PRINT "y=", y
END
Тестирование выполнено в программе QB64 ( Скачать )
CLS
INPUT "x0,xk="; x0, xk
INPUT "x="; x
FOR i = 1 TO n
IF x0 <= x <= xk THEN y = y + (SIN((2 * i + 1) * x)) / (2 * i + 1) ^ 3 ELSE y = 0
NEXT i
WHILE y = .001
WEND
PRINT "y=", y
END
Тестирование выполнено в программе QB64 ( Скачать )